home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3.iso / webrec / files.z / decorate.op < prev    next >
Encoding:
Text File  |  1997-01-24  |  9.5 KB  |  413 lines
  1. #WP0 5 5 7 7.5 15 8
  2. /*
  3.  * The line above is read by the page layout code to
  4.  * determine the basic column layout. The items are, in order:
  5.  * - WebPrint version code.
  6.  * - Left hand margin to start of web page data.
  7.  * - Gap to leave between columns.
  8.  * - Right hand margin.
  9.  * - Top of column margin to the start of the web page data.
  10.  * - Vertical gap to leave between columns.
  11.  * - Bottom of column margin.
  12.  * All distances are in mm and may be floating point. Margin measurements
  13.  * are made from the edge of the printable area as declared by the printer
  14.  * driver. Of course it may lie. The functions given in this file add
  15.  * decoration to the column fragments and the page as a whole within
  16.  * the margins and gap areas. That is, they do not generally overwrite
  17.  * the web page data itself, although they may.
  18.  */
  19.  
  20. /*
  21.  * And here are the same numbers so they can be used within the
  22.  * script. (top, bottom, left, right margin, vertial, horixontal gap).
  23.  */
  24. static lm = 5;
  25. static hg = 5;
  26. static rm = 7;
  27. static tm = 7.5;
  28. static vg = 15;
  29. static bm = 8;
  30.  
  31. /*
  32.  * WP_decorate_page
  33.  *
  34.  * Add decoration to the given gob. The gob is the whole page as set
  35.  * out so far.
  36.  */
  37. static
  38. WP_decorate_page(pg, xmin, ymin, xmax, ymax, pg_num, no_background)
  39. {
  40.     auto    fw = 5.0;   /* The width the of fade round the edge. */
  41.     auto    fh = 4.0;   /* The font size. */
  42.     auto    info;
  43.     auto    bg;
  44.     auto    icon;
  45.     auto    pg_str;
  46.     auto    pg_width;
  47.  
  48.     gc_save();
  49.  
  50.     gc_default();
  51.     
  52.     if (!no_background)
  53.     {
  54.         bg = image(dir + "bgtile.bmp");
  55.         info = image_info(bg);
  56.         if (info.width_mm > 100)
  57.             info.width_mm = 100;
  58.         if (info.height_mm > 100)
  59.             info.height_mm = 100;
  60.         new_tile(info.width_mm, info.height_mm);
  61.         bg = render_tile(bg);
  62.         gc_color(bg, 0, 0);
  63.         rect(xmin, ymin, xmax - xmin, ymax - ymin);
  64.         bg = draw(path());
  65.  
  66.         /*
  67.          * And stroke its edge.
  68.          */
  69.         gc_save();
  70.         rect(xmin, ymin, xmax - xmin, ymax - ymin);
  71.         rect(xmin + .25, ymin + .25, xmax - xmin - 2 * .25, ymax - ymin - 2 * .25);
  72.         gc_draw_style("odd_even");
  73.         gc_color(.3, .3, .3);
  74.         gc_opacity(1);
  75.         bg = path() over bg;
  76.         gc_restore();
  77.  
  78.         pg = pg over bg;
  79.     }
  80.     
  81.     /*
  82.      * Place the page number icon with the page number in it over everything
  83.      * in the bottom right corner.
  84.      */
  85.     gc_opacity(1);
  86.     gc_color(.3, .3, .3);
  87.     gc_font(SansSerifBold, fh);
  88.     save_matrix();
  89.     translate(xmax - 11, ymin);
  90.     scale(.5);
  91.     icon = draw(image(dir + "pageicon.tif"));
  92.     scale(2);
  93.     move(2.75, 2.0);
  94.     if ((pg_width = WP_text_width(pg_str = string(pg_num))) > 5.0)
  95.         gc_font_scale(5.0 / pg_width, 1.0);
  96.     icon = draw(text("\t" + pg_str, NULL, "0C")) atop icon;
  97.     pg := icon;
  98.     restore_matrix();
  99.  
  100.     gc_opacity(1);
  101.     gc_color(1.0, 1.0, 1.0);
  102.     pg = pg over page_fill();
  103.  
  104.     gc_restore();
  105.  
  106.     return pg;
  107. }
  108.  
  109. static
  110. WP_decorate_column(pg, xmin, ymin, xmax, ymax, title, url)
  111. {
  112.     auto    sz = 4.0;   /* Shadow size in mm. */
  113.     auto    sw = 0.15;  /* Frame stroke width in mm. */
  114.     auto    hh = 4.0;   /* The height of the header block. */
  115.     auto    fh = 3.0;   /* The font size. */
  116.     auto    bw = 1;     /* Width of the bevel along the edge. */
  117.     auto    t;
  118.  
  119.     gc_save();
  120.  
  121.     gc_default();
  122.  
  123.     pg = WP_bevel(pg, xmin, ymin, xmax, ymax, 1, 0);
  124.  
  125.     /*
  126.      * Place a label box on top with the title in white.
  127.      * Then modify our ymax to reflect the taller box.
  128.      */
  129.     gc_opacity(1);
  130.     gc_color(1.0, 1.0, 1.0);
  131.     move(xmin + 1.0, ymax + hh * 0.25);
  132.     gc_font(SansSerifBoldItalic, fh);
  133.     t = WP_text(xmax - xmin - 2, title);
  134.     gc_color(0.3, 0.3, 0.3);
  135.     rect(xmin, ymax, xmax - xmin, hh);
  136.     pg = (t atop path()) over pg;
  137.     ymax += hh;
  138.  
  139.     /*
  140.      * Place a label box at the bottom with the url in it.
  141.      * Then modify our ymin to reflect the taller box.
  142.      */
  143.     hh *= 0.666;
  144.     fh *= 0.666;
  145.     gc_opacity(1);
  146.     gc_color(0.3, 0.3, 0.3);
  147.     move(xmin + 1.0, ymin - hh * 0.75);
  148.     gc_font(SansSerifBold, fh);
  149.     t = WP_text(xmax - xmin - 2, url);
  150.     gc_color(1.0, 1.0, 1.0);
  151.     rect(xmin, ymin - hh, xmax - xmin, hh);
  152.     pg = (t atop path()) over pg;
  153.     ymin -= hh;
  154.  
  155.     /*
  156.      * Draw an edge blend drop shadow and put it under the column
  157.      * fragment.
  158.      */
  159.     move(xmin + 2 * sz, ymin);
  160.     line(xmax, ymin);
  161.     line(xmax, ymax - 2 * sz);
  162.     move(xmin + sz, ymin);
  163.     rline(0, -sz);
  164.     rline(xmax - xmin, 0);
  165.     rline(0, ymax - ymin);
  166.     rline(-sz, 0);
  167.     gc_color(0, 0, 0);
  168.     gc_opacity(0.5, 0);
  169.     pg = pg over path();
  170.     gc_opacity(1.0);
  171.  
  172.     /*
  173.      * Put a black frame just outside the updated area.
  174.      */
  175.     gc_color(0, 0, 0);
  176.     rect(xmin, ymin, xmax - xmin, ymax - ymin);
  177.     rect(xmin - sw, ymin - sw, xmax - xmin + 2 * sw, ymax - ymin + 2 * sw);
  178.     gc_draw_style("odd_even");
  179.     pg = path() over pg;
  180.  
  181.     gc_restore();
  182.  
  183.     return pg;
  184. }
  185.  
  186. static
  187. WP_bevel(pg, xmin, ymin, xmax, ymax, bw, sunken)
  188. {
  189.     /*
  190.      * Bevel the edges. First the left hand side.
  191.      */
  192.     gc_save();
  193.     move(xmin, ymin);
  194.     rline(bw, bw);
  195.     rline(0, ymax - ymin - 2 * bw);
  196.     rline(-bw, bw);
  197.     close_edge();
  198.     gc_opacity(.5, xmin,ymax, 0.6, xmin,ymin);
  199.     if (sunken)
  200.     {
  201.         gc_opacity(0.6, xmin,ymax, 0.3, xmin,ymin);
  202.         gc_color(0.3,0.3,0.3, xmin,ymax, 0,0,0, xmin,ymin);
  203.     }
  204.     else
  205.     {
  206.         gc_color(1,1,1, xmin,ymax, .6,.6,.6, xmin,ymin);
  207.     }
  208.     pg = path() over pg;
  209.  
  210.     /*
  211.      * The top.
  212.      */
  213.     move(xmin, ymax);
  214.     rline(bw, -bw);
  215.     rline(xmax - xmin - 2 * bw, 0);
  216.     rline(bw, bw);
  217.     close_edge();
  218.     gc_opacity(0.6);
  219.     if (sunken)
  220.         gc_color(0.4,0.4,0.4, xmin,ymax, 0,0,0, xmax,ymax);
  221.     else
  222.         gc_color(0.6,0.6,0.6, xmin,ymax, 1,1,1, xmax,ymax);
  223.     pg = path() over pg;
  224.  
  225.     /*
  226.      * The bottom.
  227.      */
  228.     move(xmin, ymin);
  229.     rline(bw, bw);
  230.     rline(xmax - xmin - 2 * bw, 0);
  231.     rline(bw, -bw);
  232.     close_edge();
  233.     gc_opacity(0.6);
  234.     if (sunken)
  235.         gc_color(1,1,1, xmax,ymin, 0.6,0.6,0.6, xmin,ymin);
  236.     else
  237.         gc_color(0,0,0, xmax,ymin, 0.4,0.4,0.4, xmin,ymin);
  238.     pg = path() over pg;
  239.  
  240.     /*
  241.      * The right hand side.
  242.      */
  243.     move(xmax, ymin);
  244.     rline(-bw, bw);
  245.     rline(0, ymax - ymin - 2 * bw);
  246.     rline(bw, bw);
  247.     close_edge();
  248.     gc_opacity(0.3, xmax,ymin, 0.6, xmax,ymax);
  249.     if (sunken)
  250.     {
  251.         gc_color(0.6,0.6,0.6, xmax,ymin, .8,.8,.8, xmax,ymax);
  252.     }
  253.     else
  254.     {
  255.         gc_opacity(0.3, xmax,ymin, 0.6, xmax,ymax);
  256.         gc_color(0,0,0, xmax,ymin, 0.4,0.4,0.4, xmax,ymax);
  257.     }
  258.     pg = path() over pg;
  259.     gc_restore();
  260.     return pg;
  261. }
  262.  
  263. static
  264. WP_text_width()
  265. {
  266.     /*
  267.      * Parameters not assigned to formal parameters are formed
  268.      * into an array and assigned to the auto variable vargs...
  269.      */
  270.     auto        vargs;
  271.     auto        x, y;
  272.     auto        nx, ny;
  273.  
  274.     current_point(&x, &y);
  275.     call(text, vargs);
  276.     current_point(&nx, &ny);
  277.     move(x, y);
  278.     return nx - x;
  279. }
  280.  
  281. static
  282. WP_trim_text(avail_width)
  283. {
  284.     /*
  285.      * Parameters not assigned to formal parameters are formed
  286.      * into an array and assigned to the auto variable vargs...
  287.      */
  288.     auto        vargs;
  289.     auto        full_text;
  290.     auto        trimed_text;
  291.     auto        ellipses = "\342\200\246"; /* ... in UTF8 Unicode. */
  292.     auto        nchars;
  293.  
  294.     full_text = vargs[0];
  295.     if (call(WP_text_width, vargs) < avail_width)
  296.         return full_text;
  297.     avail_width -= WP_text_width(ellipses);
  298.     nchars = nels(full_text);
  299.     while
  300.     (
  301.         nels(trimed_text = interval(full_text, 0, nchars)) != 0
  302.         &&
  303.         (
  304.             vargs[0] = trimed_text,
  305.             call(WP_text_width, vargs) > avail_width
  306.         )
  307.     )
  308.     {
  309.         --nchars;
  310.         /*
  311.          * The text we're trimming is UTF-8 encoded.  If it's a multi-byte
  312.          * character, move back past the start of the character.
  313.          */
  314.         if (full_text[nchars - 1] >= "\200")
  315.         {
  316.             while (full_text[nchars - 1] < "\300")
  317.                 --nchars;
  318.             --nchars;
  319.         }
  320.     }
  321.     return trimed_text + ellipses;
  322. }
  323.  
  324. /*
  325.  * WP_text
  326.  *
  327.  * Set text within a limited horizontal width. Condenses the text up to 50%
  328.  * if it is too long, then clips it. Returns a gob (not a text object). Leaves
  329.  * current point end of text.
  330.  *
  331.  * Parameters:
  332.  *  avail_width            The width within which the text must fit, in user space.
  333.  *  ...                    Further parameters as required for the text() function.
  334.  */
  335. static
  336. WP_text()
  337. {
  338.     /*
  339.      * Parameters not assigned to any formal parameters are formed
  340.      * into an array and assigned to the auto variable vargs...
  341.      */
  342.     auto    vargs;
  343.     auto    actual_width;
  344.     auto    x, y;
  345.     auto    xx, yy;
  346.     auto    condense;
  347.     auto    t;
  348.     auto    e;
  349.  
  350.     vargs[1] = call(WP_trim_text, vargs);
  351.     return draw(call(text, interval(vargs, 1)));
  352.  
  353.     gc_save();
  354.     current_point(&x, &y);
  355.     call(text, vargs);
  356.     current_point(&actual_width, &y);
  357.     actual_width -= x;
  358.     move(x, y);
  359.     if (actual_width > avail_width)
  360.     {
  361.         /*
  362.         condense = avail_width / actual_width;
  363.         if (condense < .5)
  364.             condense = .5;
  365.         gc_font_scale(condense, 1.0);
  366.         */
  367.  
  368.         actual_width = avail_width;
  369.         move(x + avail_width, y);
  370.         e = draw(text("\t\342\200\246", NULL, "0R")); /* Ellipses */
  371.         move(0, 0);
  372.         text("\342\200\246");  /* Ellipses */
  373.         current_point(&xx, &yy);
  374.         avail_width -= xx;
  375.  
  376.         move(x, y);
  377.         t = draw(call(text, vargs));
  378.         rect(x - 1, y - 10000, avail_width + 1, 20000);
  379.         gc_default();
  380.         t = e over (t in draw(path()));
  381.     }
  382.     else
  383.     {
  384.         t = draw(call(text, vargs));
  385.     }
  386.     gc_restore();
  387.     move(x + actual_width, y);
  388.     return t;
  389. }
  390.  
  391. static
  392. T(x, y, str)
  393. {
  394.     auto    vargs;
  395.     auto    t;
  396.     auto    i;
  397.  
  398.     y /= 10.0;
  399.     move(x / 10.0, y);
  400.     t = text(str, NULL, NULL, 1);
  401.     if (vargs != NULL)
  402.     {
  403.         for (i = 0; i < nels(vargs); ++i)
  404.         {
  405.             move(vargs[i] / 10.0, y);
  406.             ++i;
  407.             t += text(vargs[i], NULL, NULL, 1);
  408.         }
  409.     }
  410.     return draw(t);
  411. }
  412.  
  413.